home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Exceptions / exceptionstest.e < prev   
Encoding:
Text File  |  1992-09-02  |  207 b   |  19 lines
  1. MODULE 'tools/exceptions'
  2.  
  3. PROC main()
  4.   t(0)        -> NOP
  5.   t(10)
  6.   t("MEM")
  7.   t("OPEN")
  8.   t("^C")
  9.   t("BL")
  10.   t("BLA")
  11.   t("BLAA")
  12. ENDPROC
  13.  
  14. PROC t(x) HANDLE
  15.   Throw(x,'bla')
  16. EXCEPT
  17.   report_exception()
  18. ENDPROC
  19.